#!/usr/bin/perl

@array = <>;
foreach (@array) {
if ((/[A-Z][a-z]+|[a-z][A-Z]+/)) {
  print "$_";
  }
}
